PC World Komputer 2007 December/PCWKCD1207B.iso/Fiszkowe programy do nauki/Teach2000 8.19/teach819.exe/{app}/Teach2000.exe/0/RCDATA/TFRMSHOOT/TFRMSHOOT.txt

Text File | 2007-07-13 | 10KB | 402 lines

object frmShoot: TfrmShoot
  Left = 353
  Top = 213
  HelpContext = 2130
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = 'Space invaders - Shoot'#39'em all!'
  ClientHeight = 606
  ClientWidth = 862
  Color = clBtnFace
  ParentFont = True
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnKeyDown = TntFormKeyDown
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object lbGameOver: TTntLabel
    Left = 0
    Top = 0
    Width = 862
    Height = 107
    Align = alTop
    Alignment = taCenter
    Caption = 'GAME OVER'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -96
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
    WordWrap = True
    ExplicitWidth = 581
  end
  object pnlOperate: TPanel
    Left = 0
    Top = 509
    Width = 862
    Height = 97
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      862
      97)
    object lbAnswer: TTntLabel
      Left = 120
      Top = 16
      Width = 6
      Height = 13
      Caption = 'X'
      FocusControl = edAnswer
    end
    object lbCommentAnswer: TTntLabel
      Left = 641
      Top = 16
      Width = 89
      Height = 13
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = 'lbCommentAnswer'
    end
    object lbComment: TTntLabel
      Left = 568
      Top = 16
      Width = 53
      Height = 13
      Anchors = [akTop, akRight]
      Caption = 'lbComment'
    end
    object edAnswer: TTntEdit
      Left = 119
      Top = 32
      Width = 612
      Height = 32
      Anchors = [akLeft, akTop, akRight]
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      PopupMenu = pmExoticChars
      TabOrder = 1
      OnKeyDown = edAnswerKeyDown
    end
    object btnClose: TTntButton
      Left = 756
      Top = 16
      Width = 75
      Height = 50
      Anchors = [akRight, akBottom]
      Caption = 'X'
      TabOrder = 2
      OnClick = btnCloseClick
    end
    object btnPlay: TTntButton
      Left = 25
      Top = 16
      Width = 75
      Height = 50
      Anchors = [akLeft, akBottom]
      Caption = 'X'
      TabOrder = 0
      OnClick = btnPlayClick
    end
  end
  object sbStatus: TTntStatusBar
    Left = 0
    Top = 490
    Width = 862
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 200
      end
      item
        Width = 200
      end>
  end
  object tiShoot: TTimer
    Enabled = False
    Interval = 50
    OnTimer = tiShootTimer
    Left = 312
    Top = 56
  end
  object tiNewItem: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = tiNewItemTimer
    Left = 312
    Top = 88
  end
  object pmExoticChars: TPopupMenu
    MenuAnimation = [maLeftToRight, maTopToBottom]
    OwnerDraw = True
    Left = 368
    Top = 244
    object Teken223: TMenuItem
      Caption = #223
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken199: TMenuItem
      Caption = #199
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken231: TMenuItem
      Caption = #231
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken230: TMenuItem
      Caption = #230
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken224: TMenuItem
      Break = mbBreak
      Caption = #224
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken225: TMenuItem
      Caption = #225
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken226: TMenuItem
      Caption = #226
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken228: TMenuItem
      Caption = #228
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken232: TMenuItem
      Break = mbBreak
      Caption = #232
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken233: TMenuItem
      Caption = #233
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken234: TMenuItem
      Caption = #234
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken235: TMenuItem
      Caption = #235
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken236: TMenuItem
      Break = mbBreak
      Caption = #236
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken237: TMenuItem
      Caption = #237
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken238: TMenuItem
      Caption = #238
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken239: TMenuItem
      Caption = #239
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken242: TMenuItem
      Break = mbBreak
      Caption = #242
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken243: TMenuItem
      Caption = #243
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken244: TMenuItem
      Caption = #244
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken246: TMenuItem
      Caption = #246
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken249: TMenuItem
      Break = mbBreak
      Caption = #249
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken250: TMenuItem
      Caption = #250
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken251: TMenuItem
      Caption = #251
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object Teken252: TMenuItem
      Caption = #252
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N2: TMenuItem
      Break = mbBreak
      Caption = #353
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N3: TMenuItem
      Caption = #382
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N4: TMenuItem
      Caption = #181
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N5: TMenuItem
      Caption = #248
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N6: TMenuItem
      Break = mbBreak
      Caption = #254
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N7: TMenuItem
      Caption = #165
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N8: TMenuItem
      Caption = #253
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N9: TMenuItem
      Caption = #255
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N10: TMenuItem
      Break = mbBreak
      Caption = #240
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N11: TMenuItem
      Caption = #241
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N12: TMenuItem
      Caption = #191
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N13: TMenuItem
      Caption = #162
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N14: TMenuItem
      Break = mbBreak
      Caption = #229
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N15: TMenuItem
      Caption = #227
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N16: TMenuItem
      Caption = #167
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
    object N17: TMenuItem
      Caption = #245
      OnClick = SpecialCharClick
      OnDrawItem = SpecialCharDrawItem
      OnMeasureItem = SpecialCharMeasureItem
    end
  end
end